BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Bus/B/BPlan.cpt/Business Plan™ 1.2/background_4923.txt

Text File | 1990-08-11 | 11KB | 462 lines

-- background: 4923 from stack: in.2
-- bmap block id: 11331
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on flashnGo
  global theEntry,cleared,isDeposit,local
  put 1 into isDeposit
  put 0 into local
  global ToHERE,WHICHLINE,THISFIELD
  put the short name of the target into thisField
  set cursor to 4
  put textHeight of the target into leading
  get rect of the target
  put (trunc((item 1 of it + (((item 3 of it) - (item 1 of it))/2)) -8)) into ctrBtnH
  put (trunc(((item 2 of the clickLoc) - (item 2 of the rect of the target) + (scroll of the target))/(textheight of the target))+1) into whichLine
  put (trunc((((item 2 of the rect of the target) - (the scroll of the target)) + (whichLine * leading)) - (leading/2) +1)) into ctrBtnV
  do "get" && "line whichLine of background field thisField"
  if it is empty then
    delete line whichLine of bg fld "deposit"
    exit to HyperCard
  end if
  show btn "flasher" at ctrBtnH,ctrBtnV
  play harpsichord c6
  hide btn "Flasher"
  answer "Edit line " & quote & line whichline of bg fld "deposit" & quote & "?" with "No" or "Yes"
  if it is "Yes" then
    put line whichLine of bg fld "deposit" into theEntry
    if item 5 of theEntry is "1" then
      put 1 into cleared
    else
      put 0 into cleared
    end if
    delete line whichLine of bg fld "deposit"
    go cd "main"
    get loc of bg btn "edit entry"
    click at it
  end if
end flashnGo




-- part 1 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=35 top=40 right=287 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: deposit
----- HyperTalk script -----
on mouseUp
  flashNGo
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=53 top=294 right=338 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 7420 / 7420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "main"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=107 top=294 right=338 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 20953 / 20953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Categories
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go cd "main"
  put bg fld "categories" into categories
  go back
  DoList 998,categories,1
  if the result > 0 then
    put item 2 of the result into category
  end if
  go cd category
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=160 top=294 right=338 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 17885 / 17885
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    domenu "quit hypercard"
    exit mouseUp
  end if
  visual iris open to inverse
  visual dissolve
  go home
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=37 right=68 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go back
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=71 right=110 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "about"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=241 right=266 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 25860 / 25860
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set the locktext of bg fld "deposit" to not the locktext of bg fld "deposit"
  if the locktext of bg fld "deposit" is true then
    set the icon of bg btn id 10 to 25860
  else
    set the icon of bg btn id 10 to 32477
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=15 top=267 right=289 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 30269 / 30269
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    put empty into bg fld "deposit"
    exit mouseUp
  end if
  beep
  answer "Clear this card?" with "Yes" or "No"
  if it is "Yes" then
    put empty into bg fld "deposit"
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=214 top=293 right=340 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 159 / 159
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reconcile
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "reconcile"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=275 top=291 right=342 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 21690 / 21690
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check Register
----- HyperTalk script -----
on mouseUp
  visual iris open to inverse
  visual dissolve
  go cd "checklist"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=41 right=72 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  DoList 998,"About Business Plan,"& "Adding categories,Category viewing,Check register,"& "Comparing reports,Creating reports,Deleting categories,"& "Deleting entries,Editing entries,Entering checks,"& "Entering deposits,Importing,"& "Opening reports,Period report,Printing reports,Reconciling,"& "Reports,Saving reports,Searching for items,Shareware notice,"& "Sorting checks,Yearly report",1
  if the result > 0 then
    put item 2 of the result into theTopic
    put "◊◊ " & thetopic into thetopic
    visual iris open to inverse
    visual dissolve
    go cd "Help"
    find string theTopic in bg fld "help"
  end if
  click at 100,0
end mouseUp




-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=307 right=340 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go cd "checklist"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=477 top=307 right=340 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go next cd
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=349 top=291 right=340 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search...
----- HyperTalk script -----
on mouseUp
  global match
  put "Choose criteria to search by." into bg fld "note"
  set visible of bg fld "note" to true
  DoList 998,("Date,Deposit Number,Description,Amount"),1
  if the result > 0 then
    put item 2 of the result into criteria
    put criteria into criteria2
    if criteria = "date" then put 1 into criteria
    if criteria = "Deposit Number" then put 2 into criteria
    if criteria = "Description" then put 3 into criteria
    if criteria = "Amount" then put 4 into criteria
    set visible of bg fld "note" to false
    ask "Find what string?"
    if it is empty then exit mouseUp
    put it into theString
    put empty into theList
    put 1 into x
    repeat for the number of lines in bg fld "deposit"
      if item criteria of line x of bg fld "deposit" = theString then
        put line x of bg fld "deposit" & return after theList
      end if
      put x + 1 into x
    end repeat
    if theList is not empty then
      put "MATCHES FOUND:" & RETURN & return & theLIst into bg fld "theList"
      set scroll of bg fld "thelist" to 0
      set visible of bg fld "theList" to true
      set visible of bg btn "OK" to true
      set visible of cd btn "cross-search" to true
    else
      play harpsichord c6
      answer "The string " & quote & theSTring & quote & " was not found using search criteria " & quote & criteria2 & quote & "."
    end if
  end if
  set visible of bg fld "note" to false
end mouseUp



-- part 19 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=143 top=44 right=64 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: note


-- part 20 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=35 top=39 right=287 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: thelist


-- part 21 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=418 top=293 right=317 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  set visible of bg fld "theList" to false
  set visible of bg btn "OK" to false
  set visible of cd btn "cross-search" to false
  set visible of cd btn "revert" to false
end mouseUp



-- part 23 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=65 top=72 right=297 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: help
----- HyperTalk script -----
on mouseUp
  Zoomer 65,72,442,297,154,144,354,229
  Zoomer 154,144,354,229,12,30,34,52
  hide pict of this cd
  hide bg fld "help"

end mouseUp